BEGIN {
tol = 1.0 ;
block_separation = 6.5 ;
}

{

p1 = $1
if (i>=2)            # first line ignored as it contains number of fibers
  if ( (p1-p0) < tol )
     print "Repeat ",p1,p0
  else if ( (p1-p0) > block_separation) {
     print "Block ",p1,p0,p1-p0,nblock
     nblock = 0 
  }
i++
if (i>0)
   nblock++
p0=p1
}
